home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / DEF / Convert / Rhythms / gen-rhythm
Text File  |  1998-10-23  |  710b  |  18 lines
  1. gen-rhythm output-atom row &rest rows
  2.  
  3. Transforms rhythm strings into symbol pattern and binds the result to output-atom. Each row is a string of " " and "-" characters. The string length and the number of rows must be equal. The size of the  figure is not restricted, but the output pattern length follows the equation rows^2. The output is calculated by summing y0 column and x0 row, then y1 and x1... until no further columns and rows are left.
  4.  
  5. (gen-rhythm bass
  6. ; y 01234567
  7.    "   --   "  ; x 0
  8.    "  -  -  "  ; x 1
  9.    " -    - "  ; x 2
  10.    "- -  - -"  ; x 3
  11.    " - -- - "  ; x 4
  12.    "  -  -  "  ; x 5
  13.    "   --   "  ; x 6
  14.    "   --   "  ; x 7
  15. )
  16.  
  17. bass
  18. --> (= = = a a = = = = = a = a a = = = a = a = a a ...)